my $string = "AAA:BBB"; $string =~ /^([^:]+):([^:]+)$/; print "$1 - $2\n"; [download]
In reply to Regexp and Inline::C by m0d