Help for this page
# assuming the raw data is in $line.
$line =~ m/^[^;]*;\s*([^;]*?)\s*;/
# $1 now holds whatever is between the second and third
# semicolon, leading and trailing spaces trimmed.
Read a book on Perl
Written a book on Perl
Contributed to the Perl source code
Debugged someone else's script
Played Perl Golf
Used regular expressions to save the day
Used Perl for a certain amount of time (please specify)
Invested a certain amount of man-hours in learning Perl (please estimate)
Visited at least x Perl related events
(Co)maintain at least x active (up-river) CPAN modules
Forgotten you were not Larry Wall
One can never truly know Perl
Results (278 votes). Check out past polls.