next if $current_line !~ /Grab this\s+'([^']+)'/;

oysterperl:   Note that  '([^']+)' will not correctly match a single-quoted string that contains an escaped single-quote, but if that can occur, a regex can easily be written that can handle an escaped delimiter.