fork download 
  1. echo "match"|perl -lne 'print if(substr("515",1) eq substr("415",1))'
  2.  
  3.  
  4.  
  5.  
  6. echo "no match"|perl -lne 'print if(substr("515",1) eq substr("416",1))'
Success #stdin #stdout 0.02s 5348KB
comments (?)
stdin 
Standard input is empty
stdout 
match
https://ideone.com/rIprx1
language:
Bash (bash 5.0.3)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!