open my $h, '>', $file # try to open a file
    or die "Can't open '$file' for writing: $!\n"; # if that fails, terminate with a message
while(<$fh>) {         # reading a line via <$fh> assigns per default to $_
    s/foo/bar/;        # s/// operates per default on $_
}