echo "match"|perl -lne 'print if(substr("515",1) eq substr("415",1))'




echo "no match"|perl -lne 'print if(substr("515",1) eq substr("416",1))'