#!usr/bin/perl

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