$filename='K:\Piba0001\53\22136603.soa'

##</code><code>##

@STMT = split (/\/,$filename) ;