in reply to Re^2: String manipulation
in thread String manipulation

Sure:

my $rx = qr/ ^ # At the beginning of the string ( # Capture in $1 (?: # Paren for grouping (don't capture in $2) \w # match a "wordy" character (?: # paren for grouping, \s+|\z # match at least one space or the end of the + string ) )* # zero or more times ) # end of capture $1 (.*) # and match what comes after storing it in $ +2 /x # allow these comments ;

The rationale is to match at the beginning all the one-character strings, storing them in $1. The rest of the input will be catched in $2

citromatik