use strict;
my $str  = 'abcadefaghi';
my $pat  = qr/(a.)/;
my $repl = 'system dir ';
$str =~ s/$pat/$repl/eeg;