$prefix = $1 if substr($clickedline, 0, $col) =~ /(\w+)\z/;
$suffix = $1 if $clickedline =~ m/^.{$col}(\w+)/;