Help for this page

Select Code to Download


  1. or download this
    my ($uid) = $string =~ /^UID: (\w+)/;
print $fh $uid if $uid;