open FILE, $filename || die $!;  

##</code><code>##

open FILE, $filename or die $!;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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