Select Code to Download

sort {length $columnA <=> length $columnB}

sort {length $a <=> length $b}

Global symbol "$columnA" requires explicit package name (did you forge
+t to declare "my $columnA"?)

print "matches first" if "a (word) in context " =~ m/\b\(word\)\b/; 
print "matches second" if "a (word) in context " =~ m/\(word\)/;

print "matches third" if "a (word) in context " =~ m/(?<=\s)\(word\)(?
+=\s)/;

print "matches fourth" if "a a in context (word) " =~ m/(?<!\w)\(word\
+)(?=\s|$)/;

#!/usr/bin/env perl
use strict;
...
word word    parola parola
(word)    (parola)