#! /usr/bin/perl

$file = "1234" ;
print $file, "\n";
$_file = $file ;
print $_file, "\n" ;
$_file =~ s/1// ;
print $_file, "\n" ;
$_file = 4 . $_file ;
print $_file, "\n" ;
