#!/bin/bash
perl -F'\@' -ane 'print shift(@F),"\n";' $1