use strict;
use warnings;

my $string = shift;

if ( $string =~ /received 486 response/ ) {
    print "matched $string\n";
}
else {
    print "did not match $string\n";
}