11299 pts/4    00:00:00 su
11303 pts/4    00:00:00 bash
11403 tty2     00:00:00 bsc_static
11406 tty2     00:00:00 rtpTrau_static
11408 tty2     00:11:30 hullBts_static
11418 pts/4    00:00:00 tail
12157 pts/5    00:00:00 su

##</code><code>##

#!usr/bin/perl

while(<>)
{
if(/^([\d]+)*(hullBts_static)/)
{
my $var1= "frag_$1.log";
}
print STDOUT $var1;
}