my $substitution = 's/out/in/';
my $pattern = qr/$substitution/;