#!/bin/bash
perl -F'\@' -ane 'print pop(@F)' $1