#!/usr/bin/env perl 
use strictures;
my @v = 'A1=<m,n>:<p,q>:<s,t>...go on' =~ /[mnpqst]/g;