use strict;
use warnings;

my $test_interpolation = "Old McDonald had a farm?.";

if ( "Old McDonald had a fart " =~ m/$test_interpolation/ ) {
    print "Ewwwww!\n";
}
__OUTPUT__
Ewwwww!