Off topic:Perl script to copy certain content to another file

Question

[wmauch]

Hi,

I'm new to Perl scripting. I want to copy particular data from the file to another file, example: File A to File B

Could anybody help and advise. Thank you

File A:

{@BATCH|4091614-1004|B|1606|1||btest|150125092056||Hon-6|4091614-1004|RevA|||
{@BTEST|UCN 79334411|89|150125093154|000000|0|all||n|n|150125093154|                                           |1
{@PF|pins|0|0
}
{@BLOCK|r348_jumper|00
{@A-JUM|0|+5.717222E+00{@LIM2|+1.000000E+01|+0.000000E+00}}
}
{@BLOCK|r1290_jumper|00
{@A-JUM|0|+4.624290E+00{@LIM2|+1.000000E+01|+0.000000E+00}}
}
{@BLOCK|e7|00
{@A-JUM|0|+4.444137E+00{@LIM2|+1.000000E+01|+0.000000E+00}}
}
{@BLOCK|e8|00
{@A-JUM|0|+4.288089E+00{@LIM2|+1.200000E+01|+0.000000E+00}}
}
{@BLOCK|e10|00
{@A-JUM|0|+5.819449E+00{@LIM2|+1.000000E+01|+0.000000E+00}}
}
{@BLOCK|e12|00
{@A-JUM|0|+5.458598E+00{@LIM2|+1.000000E+01|+0.000000E+00}}
}
{@BLOCK|e14|00
{@A-JUM|0|+5.574881E+00{@LIM2|+1.000000E+01|+0.000000E+00}}
}
{@BLOCK|e17|00
{@A-JUM|0|+5.531991E+00{@LIM2|+1.000000E+01|+0.000000E+00}}
}

File B ( output )

r348_jumper
r1290_jumper
e7
e8
e10
e12
e14
e17