I have a fixed length file and it has a extra space at position 740, i need to develop a Perl script which navigates the file line by line and removes the space at position 740.

I like to know the regular expression syntax for replacing space at column postion 740 in perl. I am new to Perl and any help here is appreciated.


My Code sample:
-------------------------

$file = 'File1.out';# Name the file
$outfile = 'file1_outfile.out';

$aa=1;

open(file) or die("Could not open input file.");
open(OUTFILEHANDLE,">$outfile") or die("Could not open output file.");


foreach $line (<file>)
{
# $line=~s///; -----> Syntax needed here.

print OUTFILEHANDLE "$line";

}
close(file);
close(OUTFILEHANDLE);