sub replace{

        print "\nSearch Pattern: ";
        $pattern = <STDIN>;
        chomp($pattern);

        print "\nReplacement Pattern: ";
        $replacement = <STDIN>;
        chomp($replacement);

        while (<>){
        if ($pattern){
        substr($_, 0) = "$replacement";
                }
        }
}