#!/usr/local/bin/bash

[ perl -c "$1" ] &&
cp "$1" "`echo $1| sed 's:.pl::g'`.bak.pl" &&
vim "$1"