#!/usr/bin/perl

@ab=`ls | awk -F'[_]' '{print $2}'`;
print "\@ab = @ab";