perl -le '$,=":";print split( /\./, "filename.ext", 2)'