#!/usr/bin/perl
my $file= $ARGV[0];
#Open the file and read data
#Die with grace if it fails
open (FILE, "<$file") or die $!;
@lines = <FILE>;
close FILE;
#Open same file for writing, reusing STDOUT
open (STDOUT, ">$file") or die $!;
#Walk through lines, putting into $_, and substitute 2nd away
for ( @lines ) {
   s/&#/&amp;#/ig;
    print
}
system "crrep.pl",$file;