Select Code to Download

open FILE, $filename || die $!;

open FILE, $filename or die $!;

open(FILE,$filename) || die $!;

die "Could not open $filename: $!\n";

$str ='abcd';
$str =~s/a//g; # \g unnecessary
##
$str = 'abacad';
$str =~s/a//g; # more appropriate