Select Code to Download

use strict;
use warnings;
...

$line =~ s/$match/$replace/eeg;
print "Line after replacement: $line \n";