All pastes #188869 Raw Edit

Unnamed

public text v1 · immutable
·published 2006-10-02 16:11 UTC
rendered paste body
#!/usr/bin/perl
use strict;
use warnings;

while (<>) {
my $name;
my @aname;

chomp;
        $name = $_ if $_ /^cn:/;
        @aname = split(/\w./,$name);
        print "$aname[1]\n";

}