Select Code to Download

$pattern = LP[SKTAQEHLDN][TA][GN][EDASTV] = 5/6

#!/usr/bin/perl -wl
use strict;
...
LPSTEOPRTRYERTRETR
HELLO WORLD
PERL MONKS

LPSTEOPRTRYERTRETR matches (5/6)
HELLO WORLD does not match (2/6)
PERL MONKS does not match (2/6)