#!/usr/bin/perl -w

use strict;

$line = '<!-- USER 20 - donkey_pusher_6 -->';
print $1 if $line =~ m/\s-{1}\s(\w.+)\s/i;