比较perl中第二个字符串的第二个数字

Tom*_*dos 0 perl

如何比较字符串的第一个数字?假设我有713和213,返回是13.
另一个例子:
518和21 =>没有结果
423和413 =>没有结果
315和215 => 15
谢谢

Vij*_*jay 6

你可以这样做:

if(substr($str1,1) eq substr($str2,1))
Run Code Online (Sandbox Code Playgroud)

在这里测试