testing > cat t.pl #! /usr/bin/perl use strict; use warnings; my $mibtext = '"The number of excessive collisions, incremented for each frame that experienced 16 collisions during transmission and was aborted."'; if ( $mibtext =~ m/".*"/s ) { print "MATCH\n"; } testing > perl t.pl MATCH