modified emmet's snippet for perl