codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
use strict; my $str = 'S1,F2 title including several white spaces (abbr) single,Here<->There,reply'; if($str=~/^S(\d+),F(\d+)\s+(.*?)\((.*?)\)\s+(.*?),(.*?),(.*)$/) { print "$1\n"; print "$2\n"; print "$3\n"; print "$4\n"; print "$5\n"; print "$6\n"; print "$7\n"; }
Private
[
?
]
Run code
Submit