sub sslist { #2345678901234567890123456789012345678901234567 my$s=pop;$s=~s/(.)(\1*)/push@_,"$`$2$'"/egs;\@_ }
_____________________________________________________
Jeff[japhy]Pinyan:
Perl,
regex,
and perl
hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;
In reply to Re: List of substrings
by japhy
in thread List of substrings
by YuckFoo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |